<%
	dim db
	set db=Server.CreateObject("ADODB.Connection")
	'connStr = "Provider=sqloledb.1;Data Source=(local)\SQLEXPRESS;Initial Catalog=irl;Integrated Security=SSPI"
	// TODO SQL Server Username and Password
	connStr = "Provider=sqloledb;Data Source=(local)\SQLEXPRESS;Initial Catalog=irl;Uid=cms; Pwd=cms"
	
	db.Open connStr
	
	'db.Open "Provider=sqloledb;" & "Data Source=whsql-v03.prod.mesa1.secureserver.net;" & "Initial Catalog=DB_19378;" & "User Id=irl6531374;" & "Password='Cambod1a'"
%>